home *** CD-ROM | disk | FTP | other *** search
/ Compendium Deluxe 2 / LSD and 17bit Compendium Deluxe - Volume II.iso / a / prog / cprog / ddjcomp.lha / hstest / lib / tomlib.equ < prev    next >
Encoding:
Text File  |  1990-09-24  |  1.3 KB  |  77 lines
  1.  
  2. farcode = 0
  3. fardata = 0
  4.  
  5. ifdef MEDIUM
  6.     farcode = 1
  7. endif
  8.  
  9.  
  10. _DATA    SEGMENT  WORD PUBLIC 'DATA'
  11. _DATA    ENDS
  12. CONST    SEGMENT  WORD PUBLIC 'CONST'
  13. CONST    ENDS
  14. _BSS    SEGMENT  WORD PUBLIC 'BSS'
  15. _BSS    ENDS
  16. DGROUP    GROUP    CONST, _BSS, _DATA
  17.  
  18. ASSUME  DS: DGROUP
  19.  
  20. if farcode eq 0
  21.     _TEXT   SEGMENT  BYTE PUBLIC 'CODE'
  22.     _TEXT   ENDS
  23.     ASSUME  CS: _TEXT
  24.     textsegment macro 
  25.         _TEXT      segment
  26.         endm
  27.     textend     macro 
  28.         _TEXT  ends
  29.         endm
  30.     extproc macro extname
  31.         extrn extname:near
  32.         endm
  33.     pubproc macro pubname
  34.         public pubname
  35.         pubname proc near
  36.         endm
  37.     procedure macro procname
  38.         procname proc near
  39.         endm
  40.     SPOFF = 0                    ; StackPointerOFFset = 0 fuer near_ret
  41.     memcall   macro mem
  42.            call    word ptr mem
  43.         endm
  44.     localcall macro routine
  45.         call    near ptr routine
  46.         endm
  47. else
  48.     _TOMLIB_TEXT   SEGMENT  BYTE PUBLIC 'CODE'
  49.     _TOMLIB_TEXT   ENDS
  50.     ASSUME  CS: _TOMLIB_TEXT
  51.     textsegment macro 
  52.         _TOMLIB_TEXT      segment
  53.         endm
  54.     textend     macro 
  55.         _TOMLIB_TEXT  ends
  56.         endm
  57.     extproc macro extname
  58.         extrn extname:far
  59.         endm
  60.     pubproc macro pubname
  61.         public pubname
  62.         pubname proc far
  63.         endm
  64.     procedure macro procname
  65.         procname proc far
  66.         endm
  67.     SPOFF = 2                    ; StackPointerOFFset = 0 fuer near_ret
  68.     memcall   macro mem
  69.            call    dword ptr mem
  70.         endm
  71.     localcall macro routine
  72.         call    far ptr routine
  73.         endm
  74. endif
  75.  
  76.  
  77.